Put date on top of other-calendars menu.

diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el
index ef604d58bcac60c00f14eb29b3fbdfe01bceec3e..3baaa376323d9be1c81e047bf3b71aecb31de91e 100644 (file)
--- a/lisp/calendar/cal-menu.el
+++ b/lisp/calendar/cal-menu.el
@@ -382,7 +382,7 @@ The output is in landscape format, one month to a page."
          (x-popup-menu
           event
           (list
-           "Date Menu"
+           (concat (calendar-date-string date) " (Gregorian)")
            (append
             (list
              (concat (calendar-date-string date) " (Gregorian)")